home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_psutils.idb / usr / freeware / bin / fixwpps.z / fixwpps
Encoding:
Text File  |  1999-07-16  |  741 b   |  35 lines
  1. #!/usr/freeware/bin/perl
  2. eval 'exec perl -S $0 "$@"'
  3.     if $running_under_some_shell;
  4.  
  5. # fixwpps: get semi-conforming PostScript out of WordPerfect 5.0 file
  6. #
  7. # Copyright (C) Angus J. C. Duggan 1991-1995
  8. # See file LICENSE for details.
  9.  
  10. $page = 1;
  11. $nesting = 0;
  12.  
  13. while (<>) {
  14.    s/([^\/]_t)([0-9]+)/\1 \2/g;    # fix wp 5.0 bug
  15.    if (m!/_[be][dp]! || m!_bp \d+ \d+ roll!) {
  16.       print $_;
  17.    } elsif (/^(.*)(_bp.*)$/) {
  18.       print "$1\n" if $1 ne "";
  19.       print "%%Page: $page $page\n";
  20.       print "$2\n";
  21.       $page++;
  22.       $nesting++;
  23.    } elsif (/_ep$/) {
  24.       print $_;
  25.       $nesting--;
  26.    } elsif (/^(.*)(_ed.*)/) {
  27.       print "$1\n" if $1 ne "";
  28.       print "%%Trailer:\n";
  29.       print "$2\n";
  30.    } else {
  31.       print $_;
  32.    }
  33. }
  34.  
  35.